home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / MENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-12-08  |  482 b   |  17 lines
  1. 5  SCREEN 0,0:WIDTH 80
  2. 10  COLOR 3,0,0
  3. 20  CLS
  4. 30  LOCATE 9,5
  5. 40  PRINT "1. BELLEQUI":LOCATE 10,5: PRINT "2. PASTIME":LOCATE 11,5:PRINT "3. SONATINA":LOCATE 12,5:PRINT "4. WILLIAM TELL":LOCATE 13,5:PRINT "5. MY GIRL":LOCATE 14,5:PRINT "6. BROADWAY":LOCATE 15,5
  6. 50  PRINT "7. COCKTAILS FOR TWO":LOCATE 16,5:PRINT "8. STAR DUST"
  7. 60  INPUT; Z$
  8. 80  IF Z$="1" THEN RUN "BELLEQUI"
  9. 90  IF Z$="2" THEN RUN "PASTIME"
  10. 100  IF Z$="3" THEN RUN "SONATINA"
  11. 110  IF Z$="4" THEN RUN "WT"
  12. 120  IF Z$="5" THEN RUN "MYGIRL"
  13. 130  IF Z$="6" THEN RUN "BROADWAY"
  14. 140  IF Z$="7" THEN RUN "CTAILS"
  15. 150  IF Z$="8" THEN RUN "STARDUST.BAS"
  16. 170  GOTO 20
  17.